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owl fans, George isn't 
headed for the old growth 
forests; he's headed 
toward the new market for 
data-acquisition systems. 
As desktop spreadsheet 
and data-graphing appli- 
cations become more 
user friendly, the market 
:om data-logging 
is becoming = 
in George 








ver the years, 
r I've had several 
requests for data- 
gathering programs, 
typically for factory-testing 
applications. Each assembly was 
tested, and results were printed in 
report form and filed away for trend 
analysis. Ten years ago, it was a 
difficult task, requiring lots of custom 
programming, which meant I had a 
reasonable chance of winning the 
contract. 

Recently, however, I've observed 
a change in the requests. Today's 
typical user has a spreadsheet and 
can graph data quite well, thank you 
very much. Also, most data-acquisi- 
tion systems advertise easy-to-use 
interfaces. 

Factor in the lower cost and higher 
power of today's desktop computers, 
and you've got a changed market. 
Fewer companies are willing to spend 
large amounts of money on custom 
hardware and software development. 
You have the choice to adapt or die. 

This month, I'd like to participate 
in this new world order or at least 
the embedded corner of it. I've been 
threatening to write a general- 
purpose data logger, so here we go. 
My goal is to take an off-the-shelf, 



data-acquisition board, combine it 
with some Visual Basic (VB) soft- 
ware, and chart the data. I'd like to 
develop generic code for this article 
so that you can easily alter my work 
to suit your needs. (If you wish to 
compile the code, download the 
source code because it has not been 
altered, as the Listings have been, for 
viewing.) 

I've done some work with the 
Micromint Answer MAN modules 
and would like to use them as the 
basis for the data-acquisition sys- 
tem. They're low cost and powerful. 
I'll let you decide if they're easy to 
use. 

I'm going to use a modular design 
for the critical interfaces to all the 
major components so they can be 
easily rewritten. VB requires a 
modular discipline to develop a good 
design. Adapting it to your hardware 
should be straightforward. 

PROGRAM REQUIREMENTS 

Let me start by defining the require- 
ments. I need: 

1. Simple controls so no user's 

manual is required 

2. A setup screen 

3. A run screen 

4. Interface to data acquisition via 
the serial port 

5. Code specific to a segregated 

module 

6. Data gathered and placed in a file 
for analysis by other programs 

7. The use of VB's Microsoft Chart 

form to view the data as it's 
gathered 

8. Enough flexibility so that the code 
can be used as is 

By the way, I don't believe anyone 
can write a program or do any type 
of design work without a set of 
requirements. And, if you can't write 
your requirements down, they aren't 
clear enough. As engineers, you will 
encounter customers or marketing 
departments that want everything. 
Start with a list. If you or your cus- 
tomer is ISO-900X certified, then 
starting with a list is the law. 

So far, so good. Break the design 
into the following components: 
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/ANSWER MAN DATA LOGGER VERSION 00.04 

; OPENED & DATE: 4/18/99 TIME: 2:09:52 PM 

; SAMPLEPERIOD : 0.5 (SEC) 

? § '3 ! w r $ # t * } S S f w S $ $ # i $ w r S § § i w 9 S I # 9 S r r if I S i f f ! r S i $ $ i f 



-1 -1 -1 -i o -1 

-1 -1 -1 -1 -1 

-1 -1 -1 -1 -1 

-1 -1 -1 -1 -1 

-1 -1 -1 -1 -1 



I I I I i ! I I I f I I I I I I I I I I I I t t I I ! I I I t I I I I I t I I I I S I I I I g I I s t 

/CLOSED & DATE: 4/18/99 TIME : 2:09:55 PM 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 



Figure 1— Catch a glimpse of the straightforward output you can get from this tadpole. 



1. Setup (e.g., comm ports, data 

rate, and file names) 

2. Real-time operation (e.g., data 
gathering, filing the results) 

3. Charting the data 

I've never used Microsoft Chart 
control, and it looks like a bear. 
Perhaps, a friendly bear, but it's 
obviously rich in features, choices, 
options, and places to make errors. 
I'll have to make this a two-part 
article. Keep in mind that, until the 
charting is complete, I will be 
changing the code published in this 
article. I've posted notes in the code 
so you won't be surprised. 

GETTING IT ALL SETUP 

I am using VB5 Service Pack 3 
and running Windows 95. VB in 
Windows 95 is an interesting pro- 
gramming environment. The lan- 
guage is now object oriented, so you 
can use objects in your design. But, 
it also permits you to construct 
programs just like you would have 
done before objects. 

There is, however, one change 
you can't ignore in Win95. In the old 
days (DOS), your program would 
have the machine all to itself. You 
could loop your code until a key was 
pressed. In fact, it made for a 
snappy response because the 
machine and the operating system 
weren't doing anything else anyway. 

But, if a VB module loops on itself 
and never frees the machine for 
other tasks, you lose system ser- 



vices such as the mouse and 
keyboard. Instead of looping to wait 
for an action, you need to assemble 
a collection of routines that execute 
whenever a specific event occurs. 
Events are key pressed, mouse 
clicked, or timer expired. The 
operating system informs VB of the 
event and places you at the start of 
the routine. You then run the routine 
and, when you exit from it, control 
returns to the operating system. 
This programming structure takes 
some getting used to, but my 
programs are improving with 
familiarity. The VB routines are 
contained in modules. A module can 
just be a collection of routines, or a 
form can be associated with the 
module. The visual controls and 
displays are placed in the form. 

I've got to admit that this is a 
very easy way to create a form that 



performs a real function. As with any 
powerful tool, you can get carried 
away. Keep it simple. Remember 
there is no user's manual with this 
project. 

The structure of this project will 
start out containing these modules: 

Modules with associated forms: 

• TopForm Contains the start 
screen setting all the variables 

• PickFile Contains the code to 

select a data file 

• Charting Contains the code to 

chart the data 

Modules without forms associated: 

• AnswerManStruct Defines the 

structure interface to the Answer 
MAN DLL 

• Globals Contains the global 

definitions (see Listing 1 ) 

PROGRAMMING THE FUNDA- 
MENTAL MODULES 

Listing 2 provides, TopForm, the 
first module and form. In it, I specify 
these parameters: 

• >Comm port 

• >Data rate 

• >Module name 

• >Channels to sample 

• >Update rate 

• >Gather data start/stop 

• >Append/overwrite 

• >Exit 

Each button causes the associ- 



Listing 1— In Visual Basic, routines are contained in modules and may or may not have a form associated 
with them. The Globals routine has no form as it simply tracks the global definitions needed by the modules. 



Attribute VB_Narne = "Globals" 

* i 1 1 t 

1 CAUTION This module is NOT the final version. 

I t I I I I 1 I I I I 1 1 I I I I I I I I I t I I F 

Option Explicit 
' Color Constants 

Public Const C0L0R_BLACK = &H0&Public Const C0L0R_RED = 
&HFF&Public Const C0L0R_GREEN = &HFF00&Publ i c Const C010R_YELLOW 
= SHFFFF&Publ i c Const C0L0R_WHITE = &HFFFFFF 
Public Const C0L0R_GRAY = &HC0C0C0 
Public Const C0L0R_0RANGE = &H80FF& 
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Listing 2—TopForm is the first module and it contains the start screen. 
TopForm sets variables, such as communications port, data rate, number of 
channels to sample, and update rate.(continued on following page) 


VERSION 5.00 




Begin VB.Form TopForm 




Caption = 


"Data Logger V00-01" 


ClientHeight 


6024 


ClientLeft 


1008 


ClientTop 


1968 


ClientWidth 


11220 


LinkTopic = 


"Forml" 


ScaleHeight = 


6024 


ScaleWidth 


11220 


StartUpPosi ti on = 


2 ' CenterScreen 


Begin VB. Timer Timerl 


Interval 


1000 


Left 


7920 


Top 


5280 


End 




Begin VB. Frame GatherData 


Caption 


"Gather Data" 


Height 


■ 972 


Left 


240 


Tablndex 


= 29 


Top 


= 3600 


Width 


= 3255 


Begin VB . CommandButton Pause 


Capti on 


"Pause" 


Height 


372 


Left 


1800 


Tablndex 


31 


Top 


= 360 


Width 


1092 


End 




Begin VB . CommandButton Begin 


Capti on 


"Begin" 


Hei ght 


= 372 


Left 


= 360 


Tablndex 


= 30 


Top 


= 360 


Width 


= 1092 


End 




End 




Begin VB. Frame DataFile 


Capti on 


"Data File" 


Height 


= 1212 


Left 


= 3960 


Tablndex 


= 24 


Top 


= 3480 


Width 


= 6252 


Begin VB . Opti onButton Append 


Capti on 


"Append" 


ForeCol or 


= &H000000FF& 


Height 


192 


Index 


1 


Left 


= 240 


Tablndex 


= 28 


Top 


= 840 


Width 


972 


End 




Begin VB . Opti onButton Append 


Capti on 


"Over Write" 


ForeCol or 


= &H000000FF& 


Hei ght 


= 192 


Index 


= 


Left 


= 240 


Tablndex 


= 27 


Top 


= 600 


Width 


= 1212 


End 




Begin VB.TextBox 


Acti veFi 1 e 


Height 


= 288 


Left 


= 240 


Tablndex 


= 26 


Text 


= "Default.txt" 


Top 


= 240 


Width 


= 5772 


End 





Listing 2— (continued) 



Begin VB . CommandButton SelFile 



"Sel ect 

372 

2280 

25 

720 

1572 



File" 



Capti on 
Height 
Left 

Tablndex 
Top 
Width 

End 

End 

Begin VB. Frame ModName 
Caption 
Height 
Left 

Tablndex = 17 

Top = 2400 

Width = 6255 

Begin VB . CommandButton ChangeModul eName 

Capti on 

Height 

Left 

Tablndex 
Top 
Width 

End 

Begin VB.TextBox Textl 
Height 
Left 

Tablndex 
Text 
Top 
Width 

End 

End 

Begin VB. Frame Rate 
Caption = 
Height 
Left 

Tablndex : 
Top 
Width 



"Module Name" 
855 



"Change" 
375 
4200 
19 
360 
1335 



= 285 
480 
18 

"MAN0" 
360 
3015 



"Rate (0.5 to 3600 Sec/Sample)" 
= 855 
= 240 
= 16 
= 2520 
= 3255 

Begin VB. CommandButton SampleRate 



Capti on 
Height 
Left 

Tablndex 

Top = 
Width 

End 

Begin VB.TextBox Text2 
Height 
Left 

Tablndex 
Text 
Top 
Width 

End 

End 

Begi n VB. Frame Channel s 
Capti on 
Height 
Left 

Tablndex 
Top 
Width 



"Update" 

255 

2160 

21 

360 

855 



285 

240 

20 

"1" 

360 

1575 



"Channels to Record" 
2055 
240 

9 

240 
3252 



Begin VB.CheckBox Ch 
Caption 
Height 
Index 
Left 

Tablndex 

Top 

Width 

End 

Begin VB.CheckBox Ch 
Caption 
Height 

Index = 
Left 



"Channel 

195 



240 
15 
720 
1200 



"Channel 

195 

1 

240 



1" 
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ated event and sets or clears the appropriate variables 
pretty much as you would expect by simple observa- 
tion. If the user wishes to select a file name (including 
its path) different than the default, the SelectFile button 
loads the PickFile form (see Listing 3 ). That form 
manages the GUI process of selecting a path and file. 
The result is returned to the TopForm routine just like a 
subroutine call. I copied the PickFile form from 
Microsoft VB examples. 

The heart of the TopForm is the timer event. Once 
every timer tick (I haven't yet figured out the exact 
setting), it enters the data-gathering routine. Although I 
expected data to be gathered and saved in this module 
by sending a command out the serial port and waiting 
for a reply, I was wrong. You shouldn't wait for the reply. 
It just bogs the computer down, which is now Win95 
friendly. My plan instead is to either gather the data 
using the next timer as an interrupt or have a separate 
timer for reading the serial data. 

I'll start with a separate timer for reading data so that 
I can operate the control for sending and reading at 
different rates. This approach also lets me have flags 
indicating if the data was sent or read without a trans- 
mission error. 

Answer MAN is a low-cost serial ASCII module that 
packs together eight high-current parallel I/O lines, a 4- 
channel 8-bit ADC, a 2-channel 12-bit ADC, and a 2- 
channel 12-bit DAC (along with a set of powerful 
firmware functions like keypad scanning, 4 x 20 LCD 
control, analog limit monitoring, data averaging, fre- 
quency and event counting, PWM output, and reading 
Dallas iButton serial numbers) in a 28-pin DIP 
package. The serial communications can be either RS- 
232 or RS-485 format. For more information, check out 
the datasheet at ( www.micromint.com ). 

A DLL, using a structure to pass data to and from the 
modules, helps connect the module with the VB pro- 
gramming environment. The prototype for the coding 
and the structure is found in the AnswerManStruct 
module, shown in Listing 4 . 

I've logically separated the communications into two 
parts. The first part initializes the DLL, sets up the 
hardware on the PC, and makes DLL calls. The second 
part manages what's connected to the serial port. If I 
send a command that has a reply, then I should get a 
reply or a flag indicating an error. Once you select a 
COM port, the error reporting starts. If you have the 
DLL installed, the status indicator turns green and the 
DLL version appears below the indicator. 

Since I am only connecting one module, I won't use 
the RS-485 network. However, you program both RS- 
232 and RS-485 the same, so when I refer to RS-232, 
think both. 

The Answer MAN protocol reads ASCII characters. 
To test error checking on the RS-232 end, I display the 
characters sent and received, which limits how fast I 
can gather the data. But, what the heck— it's good 
justification for a new computer, don't you think? 



Listing 2— (continued) 


Tablndex 




14 


Top 




1005 


Wi dth 


= 


1200 


End 






Begin VB.CheckE 


ox Ch 




Capti on 




Channel o 


Height 




195 


Index 




2 


Left 




240 


Tablndex 




13 


Top 




1290 


Width 




1200 


End 






Begin VB.CheckBox Ch 




Capti on 




"Channel 4" 


Hei ght 




195 


Index 




3 


Left 




240 


Tablndex 




12 


Top 


— 


1590 


Width 




1200 


End 






Begin VB.CheckBox Ch 




Capti on 




"Channel 5" 


Height 


= 


195 


Index 




4 


Left 




1800 


Tablndex 




11 


Top 




720 


Width 




1200 


End 






Begin VB.CheckBox Ch 




Capti on 




"Channel 6" 


Height 




195 


Index 




5 


Left 




1800 


Tablndex 




10 


Top 




1005 


Width 




1200 


End 






Begin VB. Label 


Label2 




AutoSi ze 




-1 'True 


Capti on 




12 Bit 


Height 




195 


Left 




1920 


Tablndex 




23 


Top 




480 


Width 




765 


End 






Begi n VB . Label 


Label 1 




AutoSi ze 




-1 'True 


Capti on 




8 Bit 


Begi nProperty Font 




Name 




"MS Sans Serif" 


Si ze 




9.6 


Charset 




= 


Wei ght 




400 


Underl i ne 


'False 


Ital ic 




'False 


Stri kethrough 


'False 


EndProperty 






Height 




240 


Index 







Left 




360 


Tablndex 




22 


Top 




457 


Width 




825 


End 






End 






Begin VB. Frame Communications 


Capti on 


"Communications" 


Height 


= 2055 


Left 


= 3960 


Tablndex 


= 1 




Top 


= 240 


Width 


7095 


Begin VB.ComboE 


ox BaudRateSel 


Height 




288 
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Listing 2— (continued) 


ItemData 


"TopForm. f rx" :0000 


Left 


1080 


Li st ■ 


"TopForm.f rx" : 0016 


Tablndex 


32 


Text 


"Default 9600" 


Top 


360 


Width = 


1332 


End 




Begin VB.OptionButton 


ComSel 


Caption = 


"Com2" 


Height 


252 


Index 


1 


Left 


120 


Tablndex 


b 


Top 


480 


Width 


732 


End 




Begin VB.OptionButton ComSel 


Caption = 


"Coml" 


Height 


252 


Index 





Left 


120 


Tablndex 


4 


Top = 


240 


Width 


732 


End 




Begin VB.TextBox DataSent 


Begi nProperty Font 




Name 


"MS Sans Serif" 


Si ze 


= 9.6 


Charset 


= 


Weight 


= 400 


Underline 


'False 


Ital i c 


'False 


Stri kethrough 


'False 


EndProperty 




Height 


300 


Left 


2880 


Tablndex 


3 


Text 


"Data Sent" 


Top 


240 


Width 


3975 


End 




Begin VB.TextBox Reply 


BeginProperty Font 




Name 


= "MS Sans Serif" 


Si ze 


= 9.6 


Charset 


= 


Wei ght 


400 


Underl i ne 


'False 


Ital ic 


'False 


Stri kethrough 


'False 


EndProperty 




Height 


1275 


Left 


2880 


MultiLine 


-1 'True 


Tablndex 


2 


Text 


"TopForm.f rx" :003F 


Top 


600 


Width 


3975 


End 




Begin VB. Label CommEstab 


AutoSize = 


-1 'True 


Caption = 


"Status" 


Height 


195 


Left 


480 


Tablndex = 


8 


Top = 


840 


Width 


450 


End 




Begin VB. Shape ComOK 




FillColor 


&H00404040& 


FillStyle 


'Solid 


Height 


210 


Left 


120 


Shape = 


3 'Circle 


Top = 


840 


Width 


210 



Seriously, though, you can eliminate posting the RS-232 
data at higher rates, gaining yourself a significant speed 
increase. 

The other problem I wrestled with was data rate and 
file size. If you're running tests on a battery charger, you 
could be reading the data once per hour and running for 
several weeks. But, if you're running tests on a faster 
process, you need to read more often but only store the 
same quantity of readings. With no other direction, I'm 
just going to pick some numbers and hope they are work 
for your purposes. I will comment the code well, so you 
can see the limitations. 

CREATING A PROTOTYPE THAT REALLY BOOKS 

These are three approaches to software design: top 
down, bottom up, and what I call "manana," which 
essentially postpones decisions until "tomorrow" or, more 
aptly, when you definitely know what to do. 

The top-down approach starts with the big picture and 
designs the next lower level of the system on each pass 
through the design process. A bottom-up approach starts 
with the lowest level and builds the next higher level on 
each pass through the design process. The "manana" 
approach postpones design decisions with the assump- 
tion that when issues affecting design need to be re- 
solved, you'll postpone the decisions and keep on 
designing. Eventually, the reasons for not making the 
decision resolve, making it easier to make the correct 
design decision. 

In our quest to build a generic data logger, I plan on 
taking the requirements outlined in Part 1 last month and 
get the data logger up and running. As you recall, I'm 
using a modular design written in Visual Basic and 
downloaded into Answer MAN, a module built by 
Micromint. I've decided to dub our generic data logger 
"Data MAN." 

GETTING FUNCTIONAL 

Getting this generic data logger together has been an 
interesting journey. As I started last month's article, I said 
to myself, "This is going to be fun and easy." I got a clean 
sheet of paper, thinking I could just write a paragraph for 
the article explaining what I'm doing and then write the 
code. I thought I could get twice as much done in half the 
time. 

Obviously, I've been reading too many advertisements 
lately. And, if it had worked, it would have been a good 
description of a top-down design. I would have started 
with the big picture and kept going to lower and lower 
levels, designing and implementing along the way. At 
each level, I'd get into more details. 

However, for this project, the top-down approach 
completely failed. I couldn't make any progress. I couldn't 
write code. It was all wrong. I've read that large systems 
are almost always designed and implemented using a 
top-down technique. If you're doing an air-traffic control 
system, for instance, you would need to complete the 
design and then test and simulate that design before you 
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Listing 2— (continued) 


End 




Begin VB. Label DLLVER 


AutoSize 


= -1 'True 


Capti on 


"Label 1" 


Height 


= 195 


Left 


= 120 


Tablndex 


7 


Top 


= 1200 


Width 


= 480 


End 




Begin VB. Label Aman 


AutoSi ze 


= -1 'True 


Caption = 


"Answer Man Version ???" 


Height 


= 195 


Left 


= 120 


Tablndex 


= 6 


Top 


= 1560 


Width 


= 1770 


End 




End 




Begin VB . CommandButton Exit 


Capti on 


"Exit" 


Begi nProperty Font 


Name 


= "MS Sans Serif" 


Si ze 


= 12 


Charset 


= 


Wei ght 


= 700 


Underl ine 


'False 


Ital i c 


= 'False 


Stri kethrough = 'False 


EndProperty 




Height 


= 735 


Left 


= 9480 


Tablndex 


= 


Top 


= 5040 


Width 


= 1455 


End 




End 




Attribute VB_Name = "TopForm" 


Attribute VB_G1 obal NameSpace = False 


Attribute VB_Creatable = False 


Attribute VB_Predecl aredld = True 


Attribute VB_Exposed 


= Fal se 


' A Data Logger 




' Written by: ESC 


Inc 


Old 


Saybrook, CT 06475 


860- 


395-1192 


'Copyright (C) 1999 by ESC Inc. All Rights Reserved 


'Author: George F. Martin Created 24 February 1999 


'This form is used to set up the data gathering parameters 


' CAUTION This module 


is NOT the final version. 


' Publ ic Variables 




Public CHI As Boolean 


Is channel enabled - 8 Bit Jr 


Public CH2 As Boolean 


Is channel enabled - 8 Bit Jr 


Publ ic CH3 As Boolean 


Is channel enabled - 8 Bit Jr 


Publ ic CH4 As Boolean 


Is channel enabled - 8 Bit Jr 


Publ ic CH5 As Boolean 


Is channel enabled - 12 Bit Sr 


Publ i c CH6 As Bool ean 


Is channel enabled - 12 Bit Sr 


Public ModuleName As String 


' Name of the Module we're talking to 


Public AppendFlag As Boolean ' Append Flag 
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Listing 2— (continued) 



Option Explicit 

Const C0M_N0NE = 
Const C0M1 = 1 
Const COM2 = 2 

Dim CmdOut As String ' The output string 
Dim Linel As String 
Dim Line2 As String 
Dim Line3 As String 
Dim Line4 As String 

Dim NewBaud As Integer ' The Baud Rrate 

Dim Sampl eRateSec As Double ' The sampling Rate 
Dim CornPort As Integer ' Which comport to use 

Dim GotPortOpen As Integer ' Flag we've got on opened 
Dim Result As Integer ' Place holder for DLL calls 
Dim TimeCount As Integer 

' incremented every Timerl interrupt 
Dim DataGatherFl ag As Boolean ' data gathering flag 
Dim WaitCount As Integer 

' The user changed the OverWri te-Append Selection 

Private Sub Append_Cl i ck( Index As Integer) 

Sel ect Case ( Index) 
Case 

Append(0).ForeColor = C0L0R_BLACK 
Append(l).ForeColor = C0L0R_BLACK 
AppendFlag = False 
Case 1 

Append(0).ForeColor = C0L0R_BLACK 
Append(l).ForeColor = C0L0R_BLACK 
AppendFl ag = True 
Case Else ' Other values. 

Debug. Print "Not a valid Append Index" 

End Sel ect 

End Sub 



' The user has changed the Baud Rate 
Private Sub BaudRateSel_Cl i ck( ) 
Dim temp As Integer 

temp = BaudRateSel .Listlndex ' Get the selected index. 
' Index BaudRate 

300 

1 1200 

2 2400 

3 9600 

4 19200 

5 57600 

Sel ect Case (temp) 



Case 






NewBaud 




300 


Case 1 






NewBaud 




1200 


Case 2 






NewBaud 




2400 


Case 3 






NewBaud 




9600 


Case 4 






NewBaud 




19200 


Case 5 






NewBaud 




57600 


Case Else 




Other values 



Debug. Print "Not a Valid Baud Rate" 
End Sel ect 
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Listing 2— (continued) 



Close the opened port 



If (GotPortOpen = 1) Then 

Call amPortClose 
End If 

' Try to open the port with the GreenLeaf DLL 
Result = amPortOpen(ComPort , NewBaud) 

If Result <> Then 

MsgBox "Can Not Open Comm Port" 
ComPort = C0M_N0NE 

Else 

' Port Opened so get a pointer 
to a Structure in the DLL 
amData = amlni tDLL( amData ) 

' al 1 this is ByRef 
amData . ReadDel ay = 30 

1 Set delay to a small value for this program 

If (amData. Status <> 0) Then 
' This should never fail!! 
MsgBox "Can Not Initialize Data Structure" 
ComPort = C0M_N0NE 
El se 

GotPortOpen = 1 
End If 

End If 



End Sub 



1 Set the Data Gathering Flag 
Private Sub Begi n_Cl i ck( ) 

DataGatherFl ag = True ' Set the data gathering flag 
End Sub 



' User clicked the Channel Enable Disable Check Box 

Private Sub Ch_Cl i ck( Index As Integer) 

' This isn't clever just simple 

Select Case (Index + 1) ' Evaluate Index 

Case 1 ' Toggle CHannel 1 
If (CHI = True) Then 
CHI = False 

Else 

CHI = True 
End If 

Case 2 ' Toggle CHannel 2 
If ( CH2 = True) Then 
CH2 = Fal se 

Else 

CH2 = True 
End If 

Case 3 ' Toggle CHannel 3 
If (CH3 = True) Then 
CH3 = False 

Else 

CH3 = True 
End If 

Case 4 ' Toggle CHannel 4 
If (CH4 = True) Then 
CH4 = False 

Else 

CH4 = True 
End If 

Case 5 ' Toggle CHannel 5 
If (CH5 = True) Then 
CH5 = False 

Else 

CH5 = True 
End If 

Case 6 ' Toggle CHannel 6 
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ever started implementation. But, in my case, I was 
forcing myself into certain implementation details that I 
couldn't see or imagine until they were right on top of 
me. 

So, then I switched to a bottom-up approach for the 
implementation of the data logger. I kept the design that 
the top-down approach created. That phase of the 
design process was completed rapidly and didn't force 
me into any dead ends. Implementing from the bottom 
up showed how fast, efficient, and flexible Visual Basic 
code can be. I could implement changes at low levels 
and not affect the overall design. Also, I could imple- 
ment one general approach that met all the require- 
ments and keep a clear path for a user to modify my 
work. 

VISUAL BASIC'S ROLE 

Some of the reasons these changes are possible 
hinge on how Visual Basics works. A VB program is a 
collection of routines, which execute based on events 
(e.g., timer ticks, mouse actions, data changes, button 
presses, and many, many other types). Most, if not all, 
of these events are operating-system generated. The 
VB program is entered, variables set up, screens 
displayed, and control returns to the operating system, 
and your program is ready to process the next event. 
This is a drastic change in how I used to write embed- 
ded software. It felt strange. 

The heart of the implementation is the TimeM routine 
(feel free to download the source code and play). This 
routine is entered every timer tick. The timer ticks 
change on the top screen to match the desired data- 
logging rate. Communications with Answer MAN take 
place through the serial port. If a communications port 
is opened, then we first try to read the data. The Answer 
MAN DLL accumulates serial data received in a buffer. 

The call to the DLL, ex_read_line(), extracts a 
complete line of data. If a line is ready, it is read and 
displayed in a scrolling display. That's what the Linel , 
Line2, Line3, and Line4 variables are used for. Although 
this string manipulation offers great debugging assis- 
tance, it slows the program down considerably. My 
development system is a 200-MHz AMD K2 running 
Windows 95 with 64-MB RAM. I could run the program 
(V0.03) at two samples per second, and it would keep 
up. 

Once a line is read and displayed and the 
DataGatherFlag is set, the line is then processed to 
extract any data returned from Answer MAN. Again, as 
you can see in Listing 5 and Figure 1 . I read all six 
analog channels in this design. If the channel has been 
selected for logging from the top form, then I extract the 
reading. Since the AID converters on Answer MAN 
operate from to 255 or from to 4095, I set all chan- 
nel readings to -1 before I process the returned values. 
I gather all the data and write the data to a file. 

The file format is also simple. Comments are identi- 
fied with a semicolon at the beginning of the line. The 
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Listing 2— (continued) 



If (CH6 = True) Then 
CH6 = False 

Else 

CH6 = True 
End If 

Case Else ' Other values. 

Debug. Print "Not a Valid Channel to record" 
End Select 
End Sub 



' The user requests a new module name 

Private Sub ChangeModul eName_Cl i ck( ) 

ModuleName = Textl.Text 
Textl.ForeColor = C0L0R_BLACK 
ChangeModuleName. Visible = False 

End Sub 

' Select a comm port 1 or 2 open it and try to use it. 

Private Sub ComSel_Cl i ckC Index As Integer) 

If (Index = 0) Then 

If ComPort = C0M1 Then 

End ' Do nothing 

End If 

ComPort = C0M1 ' Select coml: 

El self (Index = 1) Then 
If ComPort = COM2 Then 

End ' Do Nothing 

End If 

ComPort = COM2 ' Select com2: 

End If 

If ComPort o C0M_N0NE Then ' We have a port to try 
If (GotPortOpen = 1) Then 

Call amPortClose ' Close the opened port 
End If 

' Try to open the port with the GreenLeaf DLL 
Result = amPortOpen(ComPort , NewBaud) 

If Result <> Then 

MsgBox "Can Not Open Comm Port" 
ComPort = C0M_N0NE 

Else 

' Port Opened so get a pointer 
to a Structure in the DLL 
amData = amlni tDLL( amData ) 
' all this is ByRef 
amData. ReadDel ay = 30 

' Set delay to a small value for this program 

If (amData. Status o 0) Then 

' This should never fail!! 
MsgBox "Can Not Initialize Data Structure" 
ComPort = C0M_N0NE 
Else 

GotPortOpen = 1 
End If 
End If 
End If 

If GotPortOpen = 1 Then ' If port is opened then enable stuff 
Send . Enabl ed = True 

Else ' Else disable all the stuff 

Send. Enabled = Fal se 
End If 

End Sub 



End this form 



Listing 2— (continued) 



Private Sub Exit_Cl i ck( ) 

End 
End Sub 

' The startup code whenever this form loads 

Private Sub Form_Load() 
PickFile.DataFileName = "Default.txt" 

CHI = Fal se ' 8 bit channel s 
CH2 = Fal se 
CH3 = False 
CH4 = False 

CH5 = False 
CH6 = False 

NewBaud = 9600 ' Start here 
GotPortOpen = ' No ports opened 

' Set default Sampling rate 

SampleRateSec = 1# ' Start with 1 sample Per Sec 
Text2.Text = SampleRateSec 
Text2.ForeColor = C0L0R_BLACK 
SampleRate. Visible = False 

' Set default Module name 

ModuleName = "MAN0" 
Textl.Text = ModuleName 
Textl.ForeColor = C0L0R_BLACK 
ChangeModuleName. Visible = False 

' Set OverWrite-Append 

Append(O) .ForeColor = C0L0R_RED 
Append(l) .ForeColor = C0L0R_RED 

CmdOut = "QA" 

End Sub 

' Reset the data Gathering Flag 
Private Sub Pause_Cl ick( ) 

DataGatherFl ag = False ' Set the data gathering flag 
End Sub 

' The user has requested a new rate 

Private Sub Sampl eRate_Cl i ck( ) 
Dim temp As Integer 

SampleRateSec = Val (Text2.Text) 
If (SampleRateSec < 0.5) Then ' Too fast 
temp = MsgBox( "Sampl ing Rate Too Fast (0.5 to 3600)") 
SampleRateSec = Iff 
Elself (SampleRateSec > 3600) Then ' Too Slow 
temp = MsgBoxC'Sampling Rate Too Slow (0.5 to 3600)") 
Sampl eRateSec = 1# 
End If 

Text2.Text = SampleRateSec 

Text2. ForeColor = C0L0R_BLACK 

SampleRate. Visible = False 

Timerl. Interval = SampleRateSec * 1000 

End Sub 



' Pick a file to save the data into 

Private Sub Sel Fi 1 e_Cl i ck( ) 
PickFile.Show ' Showing it does the trick 

End Sub 



8 July 1999 



CIRCUIT CELLAR 8 ONLINE 



www.circuitcellar.com/online 



Listing 2— (continued) 



' The user is changing the module name 
Private Sub Textl_Change( ) 

If (Textl.Text) = ModuleName Then 

Textl.ForeColor = COLORJLACK 

ChangeModul eName. Vi si bl e = False 
Else 

Textl.ForeColor = COLOURED 
ChangeModuleName. Visible = True 

End If 
End Sub 

'The user changed the sample Rate so Prompt to update 
Private Sub Text2_Change ( ) 

If (Val (Text2.Text)) = Sampl eRateSec Then 

Text2.ForeColor = COtOR_BtACK 

SampleRate. Visible = False 
Else 

Text2.ForeColor = COLOR_RED 
SampleRate. Visible = True 
End If 

End Sub 

' Once every Timerl interrupt check on 

configuration & communication or get data 

Private Sub Timerl_Timer( ) 
Dim i As Integer 
Dim temp As Integer 

TimeCount = TimeCount +1 ' Inc this counter 
If TimeCount > 100 Then ' Just busy work 

TimeCount = ' Keeps the variable from overflowing 
End If 

ComOK.FillColor = C0L0R_GRAY 
' Is thi s port opened 

If GotPortOpen = 1 Then ' yes 

Pri ntButton . Enabl ed = True 
' Enable the print/save button 
Else 

PrintButton. Enabled = False 
' Disable the print/save button 
End If 

' Is this port opened 

If GotPortOpen = 1 Then 
If WaitCount > Then 

WaitCount = WaitCount - 1 
Else ' Look to send any data 

If Len(CmdOut) > Then ' Message present 
amData.TextOut = CmdOut & vbCr 
' Get the Command 
DataSent.Text = CmdOut 
temp = ex_xmit_msg(amData) 
WaitCount = 1 
End If 
End If 

temp = 1 

While (temp > 0) 

' Any Received Data 

temp = ex_read_l i net amData ) 

This has a bui 1 t in pause 
If temp > Then 

Linel = Line2 
Line2 = Line3 
Line3 = Line4 



yes 

Are we to wait 
' Yes 



only other record type is a data record. All six fields are 
written out. If a field in not selected, the -1 is saved as a 
data value. On opening the file, I log some comments 
about the program and the current settings. And, on 
ending the data gathering, I write some closing remarks 
before closing the file. 

After the data is read and processed in the Timerl 
routine, the command to get the next set of readings is 
sent to Answer MAN via ex_xmit_msg(). 

And finally, I monitor the status flags generated in the 
DLL. If a problem is reported, I set an indicator to red. If 
there are no problems, I set it to green. 

The top screen looks the same as in last month's 
article. Let's comment about some of the issues covered 
in the design of this form. I've provided a means to select 
a COMM channel (1 or 2), change the data rate, and alter 
the name of the Answer MAN module you're communi- 
cating with. All of this is fairly specific to the Answer MAN 
product. You will need to modify these for your specific 
implementation. 

The channels to read are selected with radio buttons. 
(BTW, I did not prevent you from changing these settings 
while the data gathering is in progress.) If you want to 
have a more user-friendly design, this is an area to look 
at. I've also implemented a sampling rate of from 0.5 to 
3600 s per sample. The SampleRate_Click() routine sets 
those specific limits, and the file for saving the data can 
be opened in the append or overwrite mode and can be 
located in any directory available. 

PICKING UP THE PACE 

As is, this setup should be really good at monitoring 
rather slow processes — like once per second or slower. It 
would work well for battery charging/discharging tests or 
for monitoring building temperature and humidity. 

What if we wanted to go faster? Let me give you some 
areas to work on. First, one limit is the serial port with the 
data going back and forth. In this application, you see the 
following characters on the screen. 

MAN0> 



QA 



A1:00A2:00A3:00A4:00A5:000A6:OOO 

This exchange involves a total of 39 or more character 
to complete a cycle. At 9600 bps or about 1 ms per 
character, it would take about 40-50 ms just for the data. 
As well, Answer MAN has a delay built into the reply that 
can take up to approximately 255 ms. Answer MAN also 
needs to read and compose the response using another 
10 ms. 

So, conservatively, we have 310 ms (50 + 250 + 10) 
built in as a time limit. We can reduce the turn around in 
the Answer MAN from 250 to 100 ms. And, we can up the 
data rate. I would expect that we could drop these limits 
to under 200 ms, which would result in five readings per 
second with little effort. 
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Listing 2— (continued) 



this works 



Line4 = amData . Reply 
Reply. Text = Line4 



Reply. Text 



Reply. Text = "123" & vbCrLf & "asd" 

' Post the received data 
' Parse the returned data 
' look for configuration 
If (Reply. Text Like "C:*") = True Then 
Elself ((LefttReply.Text, 10) Like "Answer 
MAN") = True) Then Aman. Caption = 

UpdateAMVersion = False 

' We need to prompt for an update 

End If 



End If 

Wend 

If ( (GotPortOpen = 1) And ( amData . Status = 0)) Then 
ComOK.FillColor = C0L0R_GREEN ' Got Config Data 
DLLVER. Caption = amData. ID 
CommEstab. Caption = "Status OK" 

Else 

ComOK.FillColor = C0L0R_RED 'Error with Config Data 
DLLVER. Caption = "DLL Version Unknown" 
CommEstab. Caption = "Status Errors" 
End If 
End If 

' Check for Printing 
' If PrintFl ag = 1 Then 

DoPrint 

PrintFl ag = 
'End If 

End Sub 

End of File 

RSION 5.00 

Begin VB.Form PickFile 



Capti on 




"Sel ect a f i 1 e 


CI ientHeight 




4740 


CI ientLeft 




3312 


CI i entTop 




2616 


CI ientWidth 




6660 


Li nkTopi c 




"Forml" 


Pal etteMode 




1 'UseZOrder 


Seal eHei ght 




4740 


ScaleWidth 




6660 


Begin VB . CommandButton Commandl 


Caption 




"Done" 


Height 




372 


Left 




4200 


Tablndex 




7 


Top 




3960 


Width 




1572 


End 






Begin VB.TextBox 


Textl 


Height 




288 


Left 




3480 


Tablndex 




3 


Text 




"Textl" 


Top 




720 


Width 




2775 


End 






Begin VB . Fi 1 eLi stBox Filel 


Height 




2568 


Left 




3480 


Tablndex 




2 


Top 




1080 


Width 




2772 


End 






Begin VB . Di rLi stBox Dirl 


Height 




1830 


Left 




480 


Tablndex 




1 


Top 




1560 


Width 




2415 



Listing 2— (continued) 


End 






Begin VB . Dri veLi stBox Drivel 




Height 


315 




Left 


480 




Tablndex = 







Top 


720 




Width 


2415 




End 






Begin VB. Label Label3 




AutoSize 


-1 'True 




Caption = 


"Files" 




BeginProperty Font 




Name = 


"MS Sans Serif" 


Si ze = 


9.6 




Charset = 







Weight = 


400 




Underl i ne 


= 


' Fal se 


Italic = 


'False 




Stri kethrough = 


' Fal se 


EndProperty 






Height 


240 




Left 


3480 




Tablndex 


= 6 




Top 


480 




Width 


432 




End 






Begin VB. Label Label2 




AutoSize = 


-1 'True 




Caption 


"Di rectori es" 


Begi nProperty 


Font 




Name = 


"MS Sans Serif" 


Si ze = 


9.6 




Charset = 







Weight = 


400 




Underl ine 


= 


' Fal se 


Italic 


'False 




Stri kethrough = 


' Fal se 


EndProperty 






Height 


240 




Left 


480 




Tablndex 


5 




Top = 


1320 




Width 


996 




End 






Begin VB. Label Label 1 




AutoSize = 


-1 'True 




Caption 


"Drives" 




Begi nProperty 


Font 




Name = 


"MS Sans Serif" 


Size = 


9.6 




Charset = 







Weight 


400 




Underl i ne 


= 


'False 


Italic = 


'False 




Stri kethrough = 


' Fal se 


EndProperty 






Height 


240 




Left 


480 




Tablndex = 


4 




Top = 


480 




Width 


588 




End 






End 






Attribute VB_Name = 


"PickFile" 




Attribute VB_G1 obal NameSpace = False 


Attribute VB_Creatable = False 




Attribute VB_Predecl aredld = True 


Attribute VB_Exposed = False 




' A Data Logger 






'Written by:ESC Inc. 


Old Saybrook, 


CT 06475, 860-395-1192 


' Copyright (C) 1999 by ESC Inc 


All Rights Reserved 


' Author: George F 


Martin, Created 24 February 1999 


' This form is used 


to pick a file to save the data 


i nto 






1 CAUTION This module is NOT the 


final version. 
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Listing 2— (continued) 



1 1 1 1 1 1 1 i i > ■ << 1 1 1 < 1 1 1 1 < i ■ < 1 1 1 1 1 1 1 

' THis file name is ont one selected 

Public DataFileName As String 1 Containd the name of the 

Data File 

Option Explicit 

1 The DONE button 

Private Sub Commandl_Cl i ck( ) 

DataFileName = Filel.Path + "\" + Textl.Text ' Build the 
name 

PickFile.Hide ' Just hide 

thi s form 

TopForm.ActiveFile.Text = Pi ckFi 1 e . DataFi 1 eName 
End Sub 



1 The Directories window 
Private Sub Di rl_Change( ) 

Filel.Path = Dirl.Path 

Textl.Text = "" 
End Sub 

' The Dri ves wi ndow 
Private Sub Dri vel_Change( ) 

Dirl.Path = Drivel. Drive 
End Sub 

' The Files window 
Private Sub Fi 1 el_Cl i ck( ) 

Textl.Text = Fi 1 el . f i 1 ename 
End Sub 

' Select a file 

Private Sub Fi 1 el_Dbl CI i ck( ) 

DataFileName = Filel.Path + 

PickFile.Hide 
End Sub 

' Load thi s form 
Private Sub Form_Load() 

Dirl.Path = Drivel. Drive 

Textl.Text = "" 
End Sub 



\" + Textl.Text 



Can your PC keep up? If not, we can help out in this 
area also. First, let's streamline the data file by only 
processing and writing to the file the channels we're 
interested in. Secondly, the command to write to the 
file is done before we send the command for more 
data. If we transpose those operations, we make better 
use of time. 

Another REALLY BIG help: reduce the amount of 
data recorded. When we read the data, let's only record 
the data that changes significantly. You can set these 
limits to suit your application. 

Also, we can convert the units of the raw data. By 
doing this, the data in the file is converted to whatever 
unit is needed for final calculations (e.g., degrees or 
PSI). 

I've read the data gathered with this code into an 
Excel spreadsheet. With Excel's charting wizard, I've 
created a chart that wasn't pretty, but it was fast. I 
could have spent more time to clean it up, but I'd rather 
get charting into this program, which is next month's 
topic, by the way. 

So, feel free to download the code and poke about a 
bit. I've updated some of the files. Make sure you throw 
away the files you downloaded last month and start 
from scratch. And, I'll be back with fresher code and 
tips on charting next month. 

SOFTWARE 

Source code for this article will be revised as the other 
parts of this article are developed. Download the 
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Listing 3— With the far-reaching touch of GUI interfaces, some forms have 
become universally known. PickFile is a good example of this. Ifs the form 
that manages the GUI process of selecting a path and file. You can copy it 
from the Microsoft VB examples.. 

VERSION 5.00 

Begi n VB . Form Pi ckFi 1 e 



Caption 




"Select a file 


CI i entHei ght 




4740 


CI ientLeft 




3312 


CI i entTop 




2616 


CI ientWidth 




6660 


Li nkTopi c 




"Forml" 


PaletteMode 




1 'UseZOrder 


Seal eHei ght 




4740 


ScaleWidth 




6660 


Begin VB . CommandButton Commandl 


Caption 




"Done" 


Height 




372 


Left 




4200 


Tablndex 




7 


Top 




3960 


Width 


= 


1572 


End 






Begin VB.TextBox 


Textl 


Height 




288 


Left 




3480 


Tablndex 




3 


Text 




"Textl" 


Top 




720 


Width 




2775 


End 






Begin VB . Fi 1 eLi stBox Filel 


Height 




2568 


Left 




3480 


Tablndex 




2 


Top 




1080 


Width 


— 


2772 


End 






Begin VB . Di rLi stBox Dirl 


Height 




1830 


Left 




480 


Tablndex 




1 


Top 




1560 


Width 




2415 


End 






Begin VB . Dri veLi stBox Drivel 


Height 




315 


Left 




480 


Tablndex 







Top 




720 


Width 




2415 


End 






Begin VB. Label 


Label 3 


AutoSi ze 




-1 'True 


Capti on 




"Files" 



Begi nProperty Font 

Name = "MS Sans Serif- 
Size = 9.6 
Charset = 
Weight = 400 

Underline = 'False 

Italic = 'False 

Stri kethrough = 'False 

EndProperty 

Height = 240 

Left = 3480 

Tablndex = 6 

Top = 480 

Width = 432 

End 

Begin VB. Label Label2 

AutoSize = -1 'True 
Caption = "Directories" 

Begi nProperty Font 

Name = "MS Sans Serif" 

Size = 9.6 

Charset = 

Weight = 400 

Underline = 'False 



Listing 3— (continued) 



Italic = 'False 
Stri kethrough = 

EndProperty 

Height = 240 

Left = 480 

Tablndex = 5 

Top = 1320 

Width = 996 

End 

Begin VB. Label Labell 

AutoSize = -1 'True 
Caption = "Drives" 

BeginProperty Font 

Name = "MS Sans Serif 
Size = 9.6 
Charset = 
Weight = 400 
Underl i ne =0 
Italic = 'False 
Stri kethrough = 



' Fal se 



False 



Fal se 



EndProperty 




Height 


240 


Left 


480 


Tablndex 


4 


Top 


480 


Width 


588 



End 

End 

Attribute VB_Name 



'PickFile" 



Attribute VB_G1 obal NameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_Predecl aredld = True 
Attribute VB_Exposed = False 

A Data Logger 

Written by: ESC Inc., Old Saybrook.CT 06475, 860-395-1192 
Copyright (C) 1999 by ESC Inc. All Rights Reserved 
Author: George F. Martin, Created 24 February 1999 
This form is used to pick a file to save the data into 

»*•*»»*.»**•*»»• tt •» t r »* f • t * • f •*••#** f •>•>• t •* f t *»•*•» 1 1 * t »»» * • i 

CAUTION This module is NOT the final version. 

THis file name is ont one selected 
Public DataFileName As String 'Containd the name of the 
Data File 
Option Explicit 

' The DONE button 

Private Sub Commandl_Cl i ck( ) 

DataFileName = Filel. Path + "\" + Textl. Text ' Build the 
name 

PickFile. Hide ' Just hide 

this form 

TopForm.ActiveFile.Text = Pi ckFi 1 e. DataFi 1 eName 
End Sub 

' The Directories window 
Private Sub Dirl_Change( ) 

Filel. Path = Dirl. Path 

Textl. Text = "" 
End Sub 

' The Drives window 
Private Sub Dri vel_Change( ) 

Dirl. Path = Dri vel . Dri ve 
End Sub 

' The Files window 
Private Sub Fi 1 el_Cl i ck( ) 

Textl. Text = Fi 1 el . f i 1 ename 
End Sub 

' Select a file 

Private Sub Fi 1 el_Dbl CI i ck( ) 

DataFileName = Filel. Path + "\" + Textl. Text 

PickFile. Hide 
End Sub 

' Load this form 
Private Sub Form_Load() 

Dirl. Path = Drivel. Drive 

Textl. Text = "" 
End Sub 
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Listing 4— Every module uses a structure to pass data to and from the modules, which helps connect it to the VB programming environment. The prototype for the 
coding and the structure is found in the AnswerManStruct module. 



Attribute VB_Name = "AnswerManStruct" 

' Written by: ESC Inc., Old Saybrook, CT 06475, 860-395-1192 
' Copyright (C) 1999 by ESC Inc. All Rights Reserved 
' Author: George F. Martin Created 25 February 1999 

' DEL Proceedures 

Declare Function ex_xmit_msg Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 
Declare Function ex_read_line Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 



Declare Function amPortOpen Lib "C:\AnswerMan.dll" (ByVal WhichPort As Integer, ByVal Baud As Integer) As Integer 
Declare Function amlnitDLL Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As amDLLStruct 
Declare Function amGetConf i gurati on Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 
Declare Sub amPortClose Lib "C:\AnswerMan.dll" () 

Declare Function amGetAllIO Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 
Declare Function amGetDi gi tal Di recti on Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 
Declare Function amSetAnal ogOut Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct, ByVal nO As Integer, ByVal nl As 
Integer) As Integer 

Declare Function amSetAnal ogLimi ts Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct, ByVal Ch As Integer, ByVal Lo 

As Integer, ByVal Hi As Integer) As Integer 
Declare Function amGetMinMax Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 
Declare Function amResetMi nMax Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 

Declare Function amSetPWM Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct, ByVal tp As Long, ByVal hp As Long) As 
Integer 

Declare Function amGetFrequency Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 
Declare Function amResetTotal i zer Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 
Declare Function amGetTotal i zer Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 

Declare Function amSetDebounce Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct, ByVal Prd As Integer) As Integer 
Declare Function amSetDi gi tal Out Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct, ByVal DigOut As Integer) As 
Integer 

Declare Function amSetDi recti on Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct, ByVal DigDir As Integer) As Integer 

Declare Function amGetDi gi tal Out Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 

Declare Function amGetDi gi tal In Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 

Declare Function amGetSerial Number Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 

Declare Function amPrint Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 

Declare Function amKey Lib "C:\AnswerMan.dll" (ByRef amStruct As amDLLStruct) As Integer 



Option Explicit 

' The following is the structure defined in the DLL 

Public Const I0_BUF_MAX = 100 ' Space for communications 

Public amData As amDLLStruct 

Public Type amDLLStruct 



ID As String * 40 ' AnswerMan DLL ID 

Name As String * 20 ' Network address 

Command As String * I0_BUF_MAX ' Command sent to the Answer Man 
Reply As String * I0_BUF_MAX ' Reply received from the Answer Man 
Key As String * 20 ' Keyboard Buffer 

TextOut As String * I0_BUF_MAX ' Text to Send to the Printer or LCD 



Status As Integer 
Config As Long 

BinO As Integer 

Bi nl As Integer 

Bin2 As Integer 

Bin3 As Integer 

AinO As Integer 
Ainl As Integer 



Reply Status 
Configuration Bit Map 

Analog Input (8 bit) 

Analog Input 1 (8 bit) 

Analog Input 2 (8 bit) 

Analog Input 3 (8 bit) 

Analog Input (12 bit) 

Analog Input 1 (12 bit) 



These Thresholds are ONLY sent NEVER reported 
AnHiTh(0 To 5) As Integer ' Hi Threshold Analog Ch 0-5 
An LoTh ( To 5) As Integer ' Lo Threshold Analog Ch 0-5 



AoutO As Integer ' Analog Output Setting (12 bit) 

Aoutl As Integer ' Analog Output 1 Setting (12 bit) 

Freq As Long ' Frequency Input (16 bit) 

DDir As Integer ' I/O Port Direction Bit Map 

Din As Integer ' Digital Inputs 

DOut As Integer ' Digital Outputs 

AvgO As Integer ' Average Analog Input (12 bit) 

MaxO As Integer ' Maximum Analog Input (12 bit) 
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Listing 4— (continued) 


MinO As Integer 


Minimum Analog Input (12 bit) 


Avgl As Integer 
Maxl As Integer 
Mini As Integer 


Average Analog Input 1 (12 bit) 
Maximum Analog Input 1 (12 bit) 
Minimum Analog Input 1 (12 bit) 


PrinterStat As Integer' 


Printer Status 


T(0 To 7) As Integer ' 


Touch Memory Serial Number T [0 . . 7 ] 


Counter As Long ' Totalizer Value 
PWMtp As Long ' PWM Total Period Counts 
PWMhp As Long 1 PWM High Period Counts 
DebouncePeri od As Integer ' PWM debounce period 
ReadDelay As Integer ' Read Delay Value in ms 


End Type 





Listing 5— Visual Basic follows nontraditional programming methods, but it's simple and quick. 



Attribute VB_Name = "FilelO" 

' Written by: ESC Inc., Old Saybrook, CT 06475 860-395-1192 
' Copyright (C) 1999 by ESC Inc. All Rights Reserved 
' Author: George F. Martin Created 15 April 1999 

' File Proceedures 

Opti on Expl i ci t 



' File Open 

Sub OpenFileO 

If AppendFlag = True Then 

Open TopForm.ActiveFile.Text For Append As #1 
Else 

Open TopForm.ActiveFile.Text For Output As #1 
End If 



' Open file for 
' Open file for 



output . 
output. 



Print #1, ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
Print #1, ";Answer Man Data Logger Version 00.04" 
Print #1, ";Opened @ Date: "; Date; "Time: "; Time 
Print #1, ";SamplePeriod: "; Sampl eRateSec ; " (sec)" 
Print #1 ,";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; 
Fi lelsOpen = True 

End Sub 

I » > > i > i f > * r t t * » » » > > > »» * * ♦ t fl i f t t t » ♦ » i > :9 t it I > $ t 9 t t > 

' File Close 
Sub CloseFileO 

Print #1 , ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
Print #1, ";Closed 6 Date: "; Date; "Time: "; Time 
Print #1, ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
Close #1 ' Close file. 
FilelsOpen = False 

End Sub 



Write the latest data to the file 
Sub WriteFilef ) 

Print #1, CHlData, CH2Data, CH3Data, CH4Data, CH5Data, CH6Data 
End Sub 

END OF FILE ' 
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